÷/SPRITE 0,1,7 MOVSPR 0,100,100 SPRGET 0,SPRITE DO WHILE X$="" JOY X=PEEK(33173)+1 Y=PEEK(33175)+1 CURSOR X,Y PRINT "*" GET X$ LOOP END. :SPRITE ------------------------ ------------------------ ------------------------ ------------------------ ------------------------ ------------------------ ------------------------ --------*------*-------- ---------*----*--------- ----------****---------- ------************------ ----------****---------- ---------*----*--------- --------*------*-------- ------------------------ ------------------------ ------------------------ ------------------------ ------------------------ ------------------------ ------------------------ X